home *** CD-ROM | disk | FTP | other *** search
/ Delphi 2.0 - Programmer's Utilities Power Pack / Delphi 2.0 Programmer's Utilities Power Pack.iso / s_to_z / strc10 / safestr.int < prev    next >
Encoding:
Text File  |  1996-09-15  |  1.4 KB  |  45 lines
  1. {$DEFINE INTCONST_SECTION}
  2. {$DEFINE INTTYPE_SECTION}
  3. {$DEFINE INTVAR_SECTION}
  4. {$DEFINE IMPCONST_SECTION}
  5. {$DEFINE IMPTYPE_SECTION}
  6. {$DEFINE IMP_SECTION}
  7. {$DEFINE INIT_SECTION}
  8.  
  9. UNIT SafeStr;
  10.  
  11. { :::::::::::::::::::::::::::::::::::::::::::::::::::::: }
  12.  
  13. INTERFACE
  14.  
  15. uses
  16.  
  17.    SysUtils,
  18.    WinProcs,
  19.    WinTypes;
  20.  
  21.  
  22. { :::::::::::::::::::::::::::::::::::::::::::::::::::::: }
  23.  
  24.    FUNCTION SafeStrLen(Source: PChar) : WORD;
  25.    FUNCTION SafeStrNumComp(S1,S2: PChar) : INTEGER;
  26.    FUNCTION SafeStrComp(S1,S2: PChar) : INTEGER;
  27.    FUNCTION SafeStrIComp(S1,S2: PChar) : INTEGER;
  28.    FUNCTION SafeStrLIComp(S1, S2 : PChar; Length : Word) : Integer;
  29.    FUNCTION SafeStrCopy(Dest,Source: PChar) : PChar;
  30.    FUNCTION SafeStrCat(Dest,Source: PChar) : PChar;
  31.    FUNCTION StrStrip(Dest,Source: PChar) : PChar;
  32.    FUNCTION SafeStrUpper(Source: PChar) : PChar;
  33.    FUNCTION SafeChPos(Source : PChar; Ch : CHAR) : WORD;
  34.    FUNCTION SafeChInsert(Source : PChar; Ch : CHAR; Pos : WORD) : PChar;
  35.    FUNCTION SafeStrInsert(Source,NewStr : PChar; Pos : WORD) : PChar;
  36.    FUNCTION SafeStrMid(Dest,Source : PChar; Start,Count : WORD) : PChar;
  37.    FUNCTION SafeStrDelete(Source : PChar; Start,Count : WORD) : PChar;
  38.    FUNCTION SafeStrCopyNL(Dest,Source: PChar) : PChar;
  39.    FUNCTION SafeStrCatNL(Dest,Source: PChar): PChar;
  40.  
  41.  
  42. { :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: }
  43.  
  44.  
  45.